-- background: 6571 from stack: in.4
-- bmap block id: 38435
-- flags: 4000
-- background id: 0
-- name: Sub Accounts


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=18 top=190 right=270 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Sub Amount


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=466 top=306 right=342 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Map
----- HyperTalk script -----
on mouseUp
  go to card "Rpt."
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=12 top=123 right=143 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Friday, January 1, 1988
----- HyperTalk script -----




-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=358 top=296 right=337 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "How would you like to print?" with "This Acct." or "All Accts." or "CANCEL"
  if it = "Cancel" then pass mouseUp
  if it = "This Acct." then
    open printing
    print this card
    close printing
  end if
  if it = "All Accts." then
    push card
    set lockscreen to true
    go to last card of this background
    put the number of this card into LastCard
    go to first card of this background
    put the number of this card into FirstCard
    put LastCard-FirstCard+1 into HowMany
    open printing with dialog
    Print HowMany Cards
    close printing
    pop card
  end if
end mouseUp


-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=266 top=164 right=187 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 134
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Sub Total2


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=9 top=18 right=135 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 204
-- text size: 48
-- style flags: 0
-- line height: 55
-- part name: Sub Title


-- part 20 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=314 top=296 right=337 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SuperFind: Chris Hostetter
----- HyperTalk script -----
on mouseUp
  global  LastButton, searchstring, LastField
  get the selection
  if it is not empty then put it into SearchString

  put the name of the target into ThisOne
  set hilite of thisOne to true

  -- Super Find
  -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, (213) 428-7414
  -- This script may be used provided you also these credit lines


  put "Chars" into FindType
  put empty into SearchLimit
  ask "Find Word(s)?   Hold option key for limits." with SearchString
  set hilite of thisOne to false
  if it is empty then
    exit mouseUp
  end if
  put it into SearchString

  if the OptionKey is down then
    if LastField is not empty then
      Answer "Search for information in what field?" with "Cancel" or LastField or "Any Field"
      if it is "Cancel" Then
        exit mouseUp
      end if
      if it is LastField then
        put " in background field " & NumToChar(34) & it & NumToChar(34) into SearchLimit
      else
        put "" into SearchLimit
      end if
    end if
    Answer "Find " & FindType & " '" & Searchstring & "'" with "Begins With" or "Full Word" or "These Chars"
    if it is "Begins with" then put empty into FindType
    if it is "Full Word" then put "Word" into FindType
    if it is "These Chars" then put "Chars" into FindType

  end if


  set loc of message box to 20,-50
  put "Find" && FindType && Quote & SearchString & Quote & SearchLimit into message box
  hide message box
  set loc of message box to 20,300
  do message box
  if the result is "Not Found" then
    beep
    answer FindType && "'" & SearchString & "'  not found.  Search more?" with "No" or "Yes"
    if it is "Yes" then click at the loc of the name of the target
  end if
end mouseUp


-- part 21 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=255 top=123 right=143 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Friday, January 1, 1988
----- HyperTalk script -----




-- part 22 (button)
-- low flags: 80
-- high flags: 2004
-- rect: left=266 top=295 right=336 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  Global   ReturnFromSub

  visual effect "CheckerBoard"
  hide background button "Return"
  go to ReturnFromSub
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=18 top=164 right=186 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 134
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Sub Total


-- part 24 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=266 top=190 right=270 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Sub Amount2


-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=441 top=308 right=334 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card of this background
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=413 top=308 right=334 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Preview
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to previous card of this background
end mouseUp


-- part 29 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=2 top=33 right=287 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Rpt.


-- part 32 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=50 top=45 right=310 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Help Message Field
----- HyperTalk script -----
on mouseUp
  put the name of the target into thisField
  do "put empty into" && thisField
  hide thisField
end mouseUp